home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Contributed Scores / Piano Inventions / Invention 5 < prev    next >
Lisp/Scheme  |  1998-10-26  |  4KB  |  154 lines
  1. ; Invention V - for solo keyboard. Words by Margaret Melicharova
  2.  
  3. (setq stanza1
  4.       '(Fin ge ring the dunes = their whis ke ry gra sses =
  5.         The ex clu sive gli ste ning mud flats and creeks =
  6.         Bird bound =
  7.         As it comes in land
  8.         The sea
  9.         Lines the main land
  10.         With salt crust = sea la ven der = sea spurge =
  11.         Bleached and ra ttling =
  12.         And marks the gho stly shore line
  13.         Where tides cli max on ly some times = =))
  14.  
  15. (setq stanza1v 
  16.       '(64 44 54 44 50 0 34 44 34 30 38 32 0
  17.         40 45 50 44 54 44 40 50 44 40 42 0
  18.         45 40 0
  19.         45 46 47 48 52
  20.         45 64
  21.         50 54 58 54
  22.         48 52 44 0 34 44 40 38 0 44 54 0
  23.         60 54 64 67 0
  24.         45 50 52 54 50 45 40
  25.         45 54 60 74 60 54 44 34 0 0))
  26.  
  27. (setq stanza1r 
  28.       (change-length times 2
  29.                      '(24 24 24 24 48 24 24 32 32 32 48 48 72 
  30.                        12 12 48 48 32 32 32 32 32 32 96 96
  31.                        48 48 96 
  32.                        24 24 24 24 72 
  33.                        24 96 
  34.                        72 24 48 96 
  35.                        48 48 48 48 48 32 32 32 48 48 48 48
  36.                        72 24 48 48 48
  37.                        48 72 24 48 48 48 96
  38.                        48 96 24 72 48 48 48 48 96)))
  39.  
  40. (setq stanza2
  41.       '(= The land = not flat but su pine =
  42.         Ac cepts the seas e mo tion less ca re sses
  43.         But keeps its own coun sel = =))
  44.  
  45. (setq stanza2v '(0 50 64 0 45 54 50 52 46 0
  46.                  45 54 50 64 60 62 64 66 68 64 54 
  47.                  45 50 46 40 48 44 0 0))
  48.  
  49. (setq stanza2r 
  50.       (change-length times 2
  51.                      '(48 48 96 48 48 48 48 48 48 72 
  52.                        24 48 48 48 48 24 24 24 24 48 96
  53.                        48 32 32 32 48 48 96 72)))
  54.       
  55.  
  56. (setq stanza3 
  57.       '(A bove the tide gate is fresh wa ter = =))
  58.  
  59. (setq stanza3v '(54 64 60 68 72 64 60 62 54 0 0))
  60.  
  61. (setq stanza3r 
  62.       (change-length times 2
  63.                      '(24 48 48 48 96 48 96 48 48 48 48)))
  64.  
  65. (setq stanza4
  66.       '(Mo del for sym bi o sis = this u nion
  67.         Of land and sea here = se pa rate =
  68.         But mar king each o thers mar gins
  69.         So su btly that
  70.         the boun da ries are ne ver cer tain = =))
  71.  
  72. (setq stanza4v 
  73.       '(54 50 52 64 62 66 60 0 50 58 54
  74.         45 50 54 68 50 0 45 50 55 0
  75.         45 54 54 50 54 50 60 54
  76.         45 54 50 44
  77.         45 54 50 45 50 58 54 60 54 0 0))
  78.  
  79. (setq stanza4r 
  80.       (change-length times 2
  81.                      '(32 32 32 48 48 48 48 48 48 48 96
  82.                        48 48 48 192 48 48 32 32 32 48
  83.                        48 48 96 48 48 48 48 96
  84.                        48 48 96 24
  85.                        24 24 24 24 24 48 48 48 48 96 48)))
  86.  
  87.  
  88. (setq stanza5
  89.       '(The o pen sea is cer tain = though = in vi ting and te rri ble =
  90.         It sub dues the wai ting land scape re mo tely =  by su gge stion =
  91.         In its full ness ad ja cent to vast cre vi ces = 
  92.         Of the ul ti mate se duc tion of a flood))
  93.  
  94. (setq stanza5v 
  95.       '(45 50 48 56 52 60 56 0 45 0 46 54 52 50 64 68 72 0
  96.         52 56 60 54 58 54 56 60 45 50 45 0 40 45 50 48 0
  97.         44 48 50 45 48 54 50 52 70 60 64 68 0
  98.         50 52 54 50 45 48 50 45 74 64 80))
  99.  
  100. (setq stanza5r 
  101.       (change-length times 2
  102.                      '(48 48 48 48 48 48 48 48 48 48 48 32 32 32 32 32 32 128
  103.                        32 32 48 48 48 48 48 96 48 48 48 144 24 24 48 48 48 
  104.                        24 24 32 32 32 32 32 32 96 32 32 32 48
  105.                        24 24 24 24 24 24 48 144 24 24 96)))
  106.  
  107.  
  108. (setq zones  (list (make-zone stanza1r) (make-zone stanza2r)
  109.                    (make-zone stanza3r) (make-zone stanza4r)
  110.                    (make-zone stanza5r)))
  111.  
  112.  
  113. (def-symbol
  114.     piano (append stanza1 stanza2 stanza3 stanza4 stanza5)
  115. )
  116.  
  117. (def-length
  118.     piano (append stanza1r stanza2r stanza3r stanza4r stanza5r)
  119. )
  120.  
  121. (def-velocity 
  122.   piano (append stanza1v stanza2v stanza3v stanza4v stanza5v)
  123. )
  124.  
  125. (def-tonality
  126.      piano (activate-tonality (locrian b 3)(major c 4)
  127.                               (dorian d 4) (phrygian e 4) 
  128.                               (lydian f 4))
  129. )
  130.  
  131. (def-zone
  132.      piano zones
  133. )
  134.  
  135. (def-channel
  136.    piano 1
  137. )
  138.  
  139. (def-tempo 30)
  140.  
  141. (compile-instrument-p "ccl;output:" "invention5"
  142.   piano
  143. )
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.